home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / wb / DzA_HtM2.lha / dza / HtM < prev    next >
Encoding:
Text File  |  1998-03-26  |  2.9 KB  |  3 lines
  1. /*$VER: DzA_HtM (01.03.1998) CopyRight DzA© 
  2. */
  3. Options failat 21;NL='0a'x;IF ~SHOW('LIBRARIES','rexxreqtools.library') THEN;DO;IF ~ADDLIB('rexxreqtools.library',10,-30,0) THEN;DO;SAY 'Cant Find <RexxReqtools.library> Please Install...=(';EXIT(10);END;END;stcommand:;call rtezrequest("Welcome to HtM...","HtM","DzA",'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext');acommand:;aa=ab;file=rtfilerequest('Ram:',,"Choose File(s) for HtM",,"rt_reqpos=reqpos_centerscr rtfi_flags = freqf_patgad|freqf_selectdirs|freqf_selectdirs|freqf_multiselect rtfi_matchpat=#?");if file='' then call errcommand;bcommand:;aa=ac;dir=rtfilerequest('Ram:',,"Path and NaME for HtM",,"rt_reqpos=reqpos_centerscr rtfi_flags = freqf_save");if dir='' then call errcommand;ldir=left(dir,9);if ldir='Ram Disk:' then dir= delstr(dir,4,5);ccommand:;aa=ad;nfile=rtgetstring("",,"EnteR IndeX NamE","HtM");if nfile=="" then;call rtezrequest("You Entered Nothing!","Hmm","HtM");if nfile='' then call errcommand;dcommand:;aa=ae;ffile=rtgetstring("",,"EnteR FiLe NamE","HtM");if ffile=="" then;call rtezrequest("You Entered Nothing!","Hmm","HtM");if ffile='' then call errcommand;xncommand:;rfile=left(file,9);if rfile='Ram Disk:' then call xcommand;call time 'R';address command;say open('xx',dir'.htm','W');say writeln('xx','<html><head><meta name="GENERATOR" content="DzA_HtM"><title>Index 'nfile'</title></head><body bgcolor="#000000" text="#ff0000" vlink="#ff0000" link="#ffffff"><center><p><h2>Index for 'nfile'</h2></center><p>');do i=1 to rtresult.count;say writeln('xx','<a href="/'rtresult.i'">'ffile'_'i'</a><p>');end;say writeln('xx','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');call timecommand;xcommand:;call time 'R';address command;say open('xx',dir'.htm','W');say writeln('xx','<html><head><meta name="GENERATOR" content="DzA_HtM"><title>Index 'nfile'</title></head><body bgcolor="#000000" text="#ff0000" vlink="#ff0000" link="#ffffff"><center><p><h2>Index for 'nfile'</h2></center><p>');do i=1 to rtresult.count;rtresult.i= delstr(rtresult.i,4,5);say open('xx',dir,'W');say writeln('xx','<a href="/'rtresult.i'">'ffile'_'i'</a><p>');end;say writeln('xx','<p><center>Created by <A HREF="mailto:never19@hotmail.com">DzA © 1998</a><p><a href="www.geocities.com/Area51/Lair/6620/">WeB PaGE : www.geocities.com/Area51/Lair/6620/</a><p></center></body></html>');call timecommand;timecommand:;call rtezrequest("Time Taken" time('E') "secs.","_WoW","DzA",'rt_reqpos=reqpos_centerscr');if rtresult==0 then exit;errcommand:;call rtfreefilebuffer();call rtezrequest("Hmm... Don't Think So...","_Oops|_Cancel","DzA",'rt_reqpos=reqpos_centerscr');if rtresult==0 then exit;select;when aa=ad then call ccommand;when aa=ae then call dcommand;when aa=ab then call acommand;when aa=ac then call bcommand;otherwise;end;exit